with c_pila;
with ada.text_io; use ada.text_io;
procedure c_pila_prova is
	package it_pila is new c_pila(character);
	use it_pila;
	p: pila;
	entrada: string:= "Hola mon!";
	entrada2: string:= "Adeu mon!";
begin


pbuida(p);

for i in entrada'range loop
	empila(p, entrada(i));
end loop;

while (esbuida(p) = FALSE) loop
	put(cim(p)); desempila(p);
end loop;

new_line(1);
pbuida(p);

for i in entrada'range loop
	empila(p, entrada2(i));
end loop;

while (esbuida(p) = FALSE) loop
	put(cim(p)); desempila(p);
end loop;



end c_pila_prova;
